(ange-ftp-write-region): Don't bind executing-kbd-macro; instead, pass

non-nil VISIT arg to ange-ftp-real-write-region.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 10d759c149439eaeeb79a7b72f8c3f9612562413..27cf72caba5a7e7877ffcf33ad220d690a707ef2 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -3317,12 +3317,12 @@ system TYPE.")
               (coding-system-used last-coding-system-used))
          (unwind-protect
              (progn
-               (let ((executing-kbd-macro t)
-                     (filename (buffer-file-name))
+               (let ((filename (buffer-file-name))
                      (mod-p (buffer-modified-p)))
                  (unwind-protect
                      (progn
-                       (ange-ftp-real-write-region start end temp nil visit)
+                       (ange-ftp-real-write-region start end temp nil
+                                                   (or visit 'quiet))
                        (setq coding-system-used last-coding-system-used))
                    ;; cleanup forms
                    (setq coding-system-used last-coding-system-used)